Dim rsDataset As New DataSet
Dim daAdattatore As OleDbDataAdapter
Dim cmBuild As OleDbCommandBuilder
Dim cnDb As OleDbConnection
Dim strSql As String = "SELECT * FROM CLIENTI WHERE COGNOME ORDER BY COGNOME"
cnDb = New OleDb.OleDbConnection(strConnessioneClienti)
cnDb.Open()
daAdattatore = New OleDb.OleDbDataAdapter(strSql, cnDb)
cmBuild = New OleDbCommandBuilder(daAdattatore)
daAdattatore.MissingSchemaAction = MissingSchemaAction.AddWithKey
daAdattatore.Fill(rsDataset, "clienti")
cnDb.Close()
Dim dtRow As DataRow
dtRow = rsDataset.Tables("clienti").Rows.Find(1)
dtRow.BeginEdit()
dtRow.Item("CITTA") = "MILANO"
dtRow.EndEdit()
daAdattatore.Update(rsDataset, "clienti")
Dim dr As DataRow = rsDataset.Tables(0).NewRow()
dr("KEY") = 111
dr("COGNOME") = "COGNOME"
dr("NOME") = "NOME"
dr("INDIRIZZO") = "INDIRIZZO"
dr("CITTA") = "CITTA"
dr("PROVINCIA") = "PR"
dr("CAP") = 80040
dr("TELEFONO") = 1234
rsDataset.Tables(0).Rows.Add(dr)
daAdattatore.Update(rsDataset, "clienti")